inherited shblReestr: TshblReestr
  Left = 428
  Width = 852
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 577
    Top = 25
    Width = 5
    Height = 569
    Align = alRight
    Beveled = True
    MinSize = 260
    ResizeStyle = rsNone
  end
  inherited pStatusBar: TStatusBar
    Width = 844
  end
  inherited ToolBar1: TToolBar
    Width = 844
    inherited ToolButton1: TToolButton
      ParentShowHint = False
      ShowHint = True
    end
    inherited ToolButton2: TToolButton
      ParentShowHint = False
      ShowHint = True
    end
    inherited ToolButton3: TToolButton
      ParentShowHint = False
      ShowHint = True
      Visible = False
    end
    inherited ToolButton5: TToolButton
      ParentShowHint = False
      ShowHint = True
      Visible = False
    end
    inherited ToolButton8: TToolButton
      ParentShowHint = False
      ShowHint = True
    end
    inherited ToolButton7: TToolButton
      ParentShowHint = False
      ShowHint = True
    end
    inherited ToolButton10: TToolButton
      ParentShowHint = False
      ShowHint = True
    end
    inherited ToolButton11: TToolButton
      ParentShowHint = False
      ShowHint = True
    end
  end
  object Panel1: TPanel [3]
    Left = 582
    Top = 25
    Width = 262
    Height = 569
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 2
    inline TfraAddress1: TfraAddress
      Left = 0
      Top = 121
      Width = 262
      Height = 201
      Align = alTop
      TabOrder = 0
      inherited SearchBox: TGroupBox
        Width = 262
        Height = 201
        inherited SubPanel: TPanel
          Width = 258
          Height = 184
          inherited FindBtn: TButton
            Hint = #1054#1073#1085#1086#1074#1080#1090#1100' '#1076#1072#1085#1085#1099#1077' '#1087#1086#1080#1089#1082#1072
            Caption = #1054#1073#1085#1086#1074#1080#1090#1100
            OnClick = aRefreshExecute
          end
        end
      end
      inherited QStreets: TpFIBDataSet
        Transaction = trList
        Database = MAINDM.pMainDatabase
        UpdateTransaction = trList
      end
      inherited QHouses: TpFIBDataSet
        Transaction = trList
        Database = MAINDM.pMainDatabase
        UpdateTransaction = trList
      end
      inherited QTowns: TpFIBDataSet
        Transaction = trList
        Database = MAINDM.pMainDatabase
        UpdateTransaction = trList
      end
      inherited QApparts: TpFIBDataSet
        Transaction = trList
        UpdateTransaction = trList
      end
    end
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 262
      Height = 121
      Align = alTop
      Caption = ' '#1060#1080#1083#1100#1090#1088' '
      TabOrder = 1
    end
    inline TfraSubstanceInfo1: TfraSubstanceInfo
      Left = 0
      Top = 322
      Width = 262
      Height = 247
      Align = alClient
      TabOrder = 2
      inherited TopPanel: TPanel
        Width = 262
      end
      inherited BottomPanel: TPanel
        Top = 206
        Width = 262
      end
      inherited PageControl: TPageControl
        Width = 262
        Height = 145
        inherited TSInfo: TTabSheet
          inherited InfoGrid: TDBGridEh
            Width = 254
            Height = 114
          end
        end
        inherited TSNote: TTabSheet
          inherited dbmNote: TDBMemo
            Width = 254
            Height = 114
          end
        end
      end
      inherited QSubstanceInfo: TpFIBDataSet
        DataSource = dscRefer
        WaitEndMasterScroll = True
        dcForceOpen = True
      end
    end
  end
  inherited Panel2: TPanel
    Left = 0
    Top = 25
    Width = 577
    Height = 569
    Align = alClient
    TabOrder = 3
    object Splitter2: TSplitter
      Left = 0
      Top = 415
      Width = 577
      Height = 5
      Cursor = crVSplit
      Align = alBottom
      Beveled = True
      MinSize = 140
    end
    object GroupBox2: TGroupBox
      Left = 0
      Top = 420
      Width = 577
      Height = 149
      Align = alBottom
      Caption = ' '#1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1072#1103' '#1080#1085#1092#1086#1088#1084#1072#1094#1080#1103' '
      TabOrder = 0
      object DetailGrid: TDBGridEh
        Left = 2
        Top = 15
        Width = 573
        Height = 132
        Align = alClient
        Constraints.MinHeight = 100
        DataGrouping.GroupLevels = <>
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        RowDetailPanel.Color = clBtnFace
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
    end
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 577
      Height = 415
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object dbgRefer: TDBGridEh
        Left = 0
        Top = 0
        Width = 577
        Height = 415
        Align = alClient
        ColumnDefValues.Title.TitleButton = True
        Constraints.MinHeight = 200
        DataGrouping.GroupLevels = <>
        DataSource = dscRefer
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
        RowDetailPanel.Color = clBtnFace
        SortLocal = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 5
        OnDblClick = aEditExecute
        OnSortMarkingChanged = dbgReferSortMarkingChanged
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
    end
  end
  inherited shblActionList: TActionList
    inherited aRefresh: TAction
      Hint = #1054#1073#1085#1086#1074#1080#1090#1100' '#1076#1072#1085#1085#1099#1077' '#1087#1086#1080#1089#1082#1072
    end
    inherited aExport: TAction
      OnExecute = aExportExecute
    end
  end
  inherited dsRefer: TpFIBDataSet
    Database = nil
  end
  inherited dscRefer: TDataSource
    Left = 60
    Top = 320
  end
  inherited Timer1: TTimer
    OnTimer = nil
  end
  inherited trRefer: TpFIBTransaction
    Left = 24
    Top = 284
  end
  inherited PropStorage: TPropStorageEh
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      'Panel2.GroupBox2.<P>.Height')
  end
  object XLSExportFile: TXLSExportFile
    Left = 240
    Top = 93
  end
  object XLSExportDBGridEh: TXLSExportDBGridEh
    XLSExportFile = XLSExportFile
    DBGridEh = dbgRefer
    Options = [eoptVisibleOnly]
    Left = 272
    Top = 93
  end
  object SaveXLSDialog: TSaveDialog
    DefaultExt = 'xls'
    Filter = #1060#1072#1081#1083#1099' Excel (*.xls)|*.xls'
    Title = #1042#1099#1073#1086#1088' '#1092#1072#1081#1083#1072' '#1076#1083#1103' '#1074#1099#1075#1088#1091#1079#1082#1080' '#1076#1072#1085#1085#1099#1093
    Left = 240
    Top = 125
  end
  object DetailTimer: TTimer
    Enabled = False
    Interval = 600
    OnTimer = DetailTimerTimer
    Left = 528
    Top = 185
  end
  object trList: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    TRParams.Strings = (
      'read'
      'nowait'
      'rec_version'
      'read_committed')
    TPBMode = tpbDefault
    Left = 696
    Top = 160
  end
end
